CREATE CUSTOMER THROUGH TABLE CONTROL 
AND TABSTRIP CONTROL 


Screens аге» 


Screen Edit Goto Utlites(M) Environment Help 
е alcee nm хош ос шаш Ф 

ФЕ 481 @ © 4 › | < Flowlagic < Ашізшез <= ElementList | ЇЇ Delete 

"Tc -——————————— T — 107 нр р ор 
ЕЗ 

Т 

[...] 

K Customer- 

e MIN — 1 | 

a | 

Ы 

[| 

H 

H 

W 


[Active (revised) го ах 27L INS Ecc 


| | 
ЕЛЕСІ |Ð Ø | samme - [Consol... | JS SAP Easy Access E... |  Е АВАР Editor: Chan... | JES Screen Painter: оь. | W) create customer d... Г screen Painter: ... Bá 7:30PM 


Screen Painter: Change Screen ZDEMO CUSTOMER. CREATION 9002 


Screen Edit Goto Utlies(M) Environment Help 
“| ін сееіпнікаеші20| анш|Ф 
оа |a 1 аен 4» | € Flowlogic < Attributes <= Element List 


ме =. jlujrjer=je rjrj 


customer БЕНЕН 


[General DatejCreait dATA| Bank Data] 


КЕЛЕ ЕЕН: 


| Active һвісіх2811м6 Ecc | 


ЕЛЕСІ ПӘ | samme -[conso.. | RE SAP Easy Access E... | FE Screen Painter: ch... | W) create customer d... Г Screen Painter: ... Bá 7:33PM 


[zi] Screen Painter: Change Screen ZDEMO_CUSTOMER_CREATION 9003 
Screen Edit Goto Utlües(M) Environment Help 


е ін сае DH zmm|ooc|muu|o 
та | гъ 1 сен 4» | € Аскоо < Attributes <= Element List 


Name 


Customer 


Country 
Name 

City 

Postal Code 


ст ЕЕ ЕНЕ: 


[active |росіх2711М5 Ес | 


| 
ЕЛЕСІ! |Ð Ø | samme - [consol... | БЕ БАР Easy Access E... ÍF Screen Panter: ch... | Æ) create customer d... Г өсгееп Painter: ... ШО) 7:34PM 


Screen Painter: Change Screen ZDEMO CUSTOMER  CREATION 9004 


Screen Edit Goto Utiiies(M) Environment Help ІШ 
е | а езе ви хае sas 


Cred.contr.area 


Credit limit 


ШЕНГЕН ЕН ЕЗ 


етап | 2 S | азарттс - [Consol... | FE sap Easy Access E... | en Painter: Ch ——7 | create customer d... === 


БЕ een Painter: Change Screen ZDEMO CUSTOMER CREATION 9005 
Screen Edit Goto  Utiities(M) Environment Help 


€ ГМ ыы ы 
Tou: <» | Ei 


4 ә 
| | Bank Country. Bank Key Bank Account 


КҮЛЕ е ЕЕЕ: 


| [active |120 ах 27 L INS Ecc 


ІЕ screen Painter: Ch... | Ы create customer d... | ЕН Screen Painter: ... — 7:35 PM 


REPORT ZDEMO CUSTOMER CREATION. 


tables : knal, "General! Data 
knkk, " Credit Data 
knbk. "Bank Data 


data it knbk type table of knbk. 
CONTROLS : tsc type tabstrip, tc1 type tableview using screen 90 
05. 


call screen 9001. 


MODULE USER COMMAND 9001 INPUT. 
data v kunnr type kunnr. 


CASE sy-ucomm. 


WHEN 'CREATE'. 
SELECT KUNNR INTO V KUNNR FROM KNA1 UP TO 1 ROWS 
WHERE KUNNR = КМА1-КОММА. 
ENDSELECT. 


IF SY-SUBRC - 0. 

MESSAGE 'User Already Existed' TYPE 'S'. 
ELSE. 

CALL SCREEN 9002. 
ENDIF. 


WHEN 'ВАСК". 
LEAVE TO SCREEN 0. 
ENDCASE. 
ENDMODULE. 
MODULE STATUS 9001 OUTPUT. 
SET PF-STATUS 'ZSTATUS'. 
* SET TITLEBAR “ххх” 


ENDMODULE. 


MODULE USER COMMAND 9002 INPUT. 


CASE SY-UCOMM. 
WHEN 'SAVE'. 
INSERT KNA1 FROM KNA1. 
IF SY-SUBRC = 0. 


IF KNKK IS NOT INITIAL. 
KNKK-KUNNR = KNA1-KUNNR. 
INSERT KNKK FROM KNKK. 

ENDIF. 


IF IT KNBK IS NOT INITIAL. 
INSERT KNBK FROM TABLE IT KNBK ACCEPTING DUPLICAT 
E KEYS. 
ENDIF. 


MESSAGE 'Successfully Created' TYPE 'S'. 
ENDIF. 
WHEN 'BACK'. 
LEAVE TO SCREEN 0. 


WHEN 'TABI'. 
TSC-ACTIVETAB = "ТАВ1!. 


WHEN 'TAB2'. 
TSC-ACTIVETAB = 'TAB2'. 

WHEN 'TAB3'. 
TSC-ACTIVETAB = 'ТАВЗ'. 


ENDCASE. 
ENDMODULE. 


MODULE SET DEFAULT VALUES 9004 OUTPUT. 
KNKK-KUNNR - KNA1-KUNNR. 
ENDMODULE. 


MODULE REFRESH ITABS 9005 INPUT. 
REFRESH IT KNBK. 
ENDMODULE. 


MODULE MOVE TC TO ІТАВ 2005 INPUT. 
KNBK-KUNNR = KNA1-KUNNR. 
APPEND KNBK TO IT KNBK. 
CLEAR KNBK. 

ENDMODULE. 
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* for screen 9001 * 
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PROCESS BEFORE OUTPUT. 
MODULE STATUS 9001. 


PROCESS AFTER INPUT. 
MODULE USER COMMAND 9001. 
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ж for screen 9002 * 
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PROCESS BEFORE OUTPUT. 

CALL SUBSCREEN : 

5А1 INCLUDING SY-CPROG 9003”, 
SA2 INCLUDING SY-CPROG '9004', 
SA3 INCLUDING SY-CPROG :9005'. 
MODULE STATUS 9001. 

PROCESS AFTER INPUT. 


CALL SUBSCREEN : ЅА1,5А2,5А3. 


MODULE USER COMMAND 9002. 


жжжжжжжжжжжжжжжжжжж 


ж for screen 9004 ж 
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PROCESS BEFORE OUTPUT. 

MODULE SET DEFAULT VALUES 9004. 
PROCESS AFTER INPUT. 

* MODULE USER COMMAND 9004. 
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ж for screen 9005 * 
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PROCESS BEFORE OUTPUT. 

LOOP AT IT KNBK INTO KNBK WITH CONTROL 
TC1 CURSOR TC1-CURRENT LINE. 

ENDLOOP. 


PROCESS AFTER INPUT. 
MODULE REFRESH ITABS 9005. 


LOOP. 
MODULE MOVE TC TO ITAB 9005. 
ENDLOOP. 


UPDATE CUSTOMER THROUGH TABLE CONTROL 
AND TABSTRIP CONTROL 


Note :- For this program screens will be same as above. 
REPORT ZDEMO CUSTOMER UPDATION. 
tables : knal, "Genera! Data 

knkk, " Credit Data 

knbk. "Bank Data 


data it knbk type table of knbk. 
CONTROLS : tsc type tabstrip, tc1 type tableview using screen 90 


05. 
call screen 9001. 


MODULE USER COMMAND 9001 INPUT. 
data v kunnr type kunnr. 


CASE sy-ucomm. 


WHEN 'CHANGE'. 
SELECT KUNNR INTO V KUNNR FROM KNA1 UP TO 1 ROWS 
WHERE KUNNR = КМА1-КОММА. 
ENDSELECT. 


IF SY-SUBRC - 0. 
SELECT SINGLE * INTO KNA1 FROM KNA1 WHERE KUNNR = К 
NA1-KUNNR. 


SELECT SINGLE * INTO KNKK FROM KNKK WHERE KUNNR = К 
NA1-KUNNR. 


SELECT * INTO TABLE ІТ KNBK FROM KNBK WHERE KUNNR = 
КМА1-КОММА. 


CALL SCREEN 9002. 
ELSE. 

MESSAGE "АО МОТ eXiSt' TYPE 'E'. 
ENDIF. 


WHEN 'ВАСК". 
LEAVE TO SCREEN 0. 
ENDCASE. 
ENDMODULE. 


MODULE STATUS_9001 OUTPUT. 
SET PF-STATUS 'ZSTATUS'. 

* SET TITLEBAR “ххх” 
ENDMODULE. 


MODULE USER_COMMAND_9002 INPUT. 


CASE SY-UCOMM. 
WHEN 'SAVE'. 
UPDATE KNA1 FROM KNAL. 

IF SY-SUBRC = 0. 

IF KNKK IS NOT INITIAL. 
KNKK-KUNNR = KNA1-KUNNR. 
update KNKK FROM KNKK. 

ENDIF. 


IF it KNBK IS NOT INITIAL. 
update knbk from table it knbk. 
ENDIF. 
MESSAGE 'Successfully updated' TYPE 'S'. 
ENDIF. 
WHEN 'BACK'. 
LEAVE TO SCREEN 0. 


WHEN 'TABI'. 
TSC-ACTIVETAB = "ТАВ1!. 


WHEN 'TAB2'. 
TSC-ACTIVETAB = 'TAB2'. 


WHEN 'TAB3'. 
TSC-ACTIVETAB = 'ТАВЗ'. 


ENDCASE. 
ENDMODULE. 


MODULE SET DEFAULT VALUES 9004 OUTPUT. 
KNKK-KUNNR = KNA1-KUNNR. 
ENDMODULE. 


MODULE REFRESH ITABS 9005 INPUT. 
REFRESH IT KNBK. 
ENDMODULE. 


MODULE MOVE TC TO ITAB 9005 INPUT. 
KNBK-KUNNR = KNAI-KUNNR. 
APPEND KNBK TO IT. KNBK. 
CLEAR KNBK. 

ENDMODULE. ^ MOVE ТС ТО ІТАВ 2005 input 
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ж for screen 9001 * 
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PROCESS BEFORE OUTPUT. 
MODULE STATUS 9001. 


PROCESS AFTER INPUT. 
MODULE USER COMMAND 9001. 
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ж for screen 9002 * 
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PROCESS BEFORE OUTPUT. 

CALL SUBSCREEN : 

5А1 INCLUDING SY-CPROG 9003”, 
SA2 INCLUDING SY-CPROG '9004', 
SA3 INCLUDING SY-CPROG :9005'. 
MODULE STATUS 9001. 

PROCESS AFTER INPUT. 

CALL SUBSCREEN : ЅА1,5А2,5А3. 

MODULE USER COMMAND 9002. 
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ж for screen 9004 ж 
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PROCESS BEFORE OUTPUT. 

MODULE SET DEFAULT VALUES 9004. 
PROCESS AFTER INPUT. 

* MODULE USER COMMAND 9004. 
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* for screen 9005 * 
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PROCESS BEFORE OUTPUT. 

LOOP AT IT KNBK INTO KNBK WITH CONTROL 
TC1 CURSOR TC1-CURRENT LINE. 

ENDLOOP. 


PROCESS AFTER INPUT. 
MODULE REFRESH ITABS 9005. 


LOOP. 
MODULE MOVE_TC_TO_ITAB_9005. 
ENDLOOP. 


DISPLAY CUSTOMER THROUGH TABLE CONTROL 


AND TABSTRIP CONTROL 


To display the whole record according your customer,, Same program 


will be copied as update record except update query block and all 


input screen will be used as display mode only from... 
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